主题：数据库连接问题

Tables.save 或者 datatables.Save 都是把数据保存到数据库里去的。

你可以保存之前，也就是执行save之前，先测试一下能不能连接数据库。

try
    Dim conn As ADODB.Connection
    conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=voyo"
    conn.Open   
    msgbox("成功")
    conn.close
Catch ex As Exception
    msgbox("失败")
End try