已知代码下：
  Dim strSQL As String            
strSQL = "Create Table Student ("
strSQL = strSQL + " Sno CHAR(10) PRIMARY KEY,"     
strSQL = strSQL + " Sname VARCHAR(15) NOT NULL,"
strSQL = strSQL + " Sphoto IMAGE );"                     
  DoCmd.RunSQL strSQL                
以上代码实现的功能是（  ）