主题：能否增加一些SQL的语句？

比如：
1  drop table 表名 ' 删除表
2  SELECT DISTINCT ' 关键词 DISTINCT 用于返回唯一不同的值。
3  SQL Alias  ' 可以为列名称和表名称指定别名（Alias）。
4  SQL UNION ' UNION 操作符用于合并两个或多个 SELECT 语句的结果集。
5  SQL SELECT INTO   '语句可用于创建表的备份复件。
6  CREATE INDEX  ' 语句用于在表中创建索引。
7  ALTER TABLE   ' 语句用于在已有的表中添加、修改或删除列。
8  TRUNCATE TABLE '  仅仅删除表格中的数据

等等。请贺老师考虑增加
如果有了 drop table 表名，那么，在创建新表时，如果数据库中已有此表了，就可以选择是删除表后重新建，还是另改表名了

请教：drop table 表名  这一句如何用？

谢谢，这一句测试成功了，呵

但是我将两段代码放在一起就出错了，请看下面的代码，红色的两句间应该如何处理，如果我分别为两个命令执行，可以成功，做一个命令，就出错
if GetTableNamesFromConnection("" & e.Form.Controls("数据库名").Value & "").Contains(s)
Dim Result As DialogResult
Result = MessageBox.Show(s & " 表已经存在,是否删除? '是',删除后新建,'否',退出"")", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    scm.CommandText = "drop table "& s & ""& Chr(13) & Chr(10)
For Each r as Row in t.Rows
    s1 = s1 & "["& r("列名") &"] " & "  " & r("列类") & "," & Chr(13) & Chr(10)
Next
scm.CommandText =scm.CommandText & "CREATE TABLE " & s & Chr(13) & Chr(10)
scm.CommandText = scm.CommandText & "(" & s1 & "PRIMARY KEY ([" & Tables("项目总表")(0,"列名") & "]))"
MessageBox.Show(scm.CommandText)
scm.ExecuteNonQuery