选择题   已知代码如下：
    Dim strSQL As String
    strSQL='create table Student('
    strSQL=strSQL+'Sno CHAR(10) PRIMARY KEY,'
    strSQL=strSQL+'Sname VARCHAR(15) NOT NULL,'
    strSQL=strSQL+'Ssex CHAR(1) NOT NULL,'
    strSQL=strSQL+'Sage SMALLINT,'
    strSQL=strSQL+'Sphoto IMAGE);'
    DoCmd.RunSQL strSQL
    以上代码实现的功能是______。