出现问题：无法初始化数据提供程序。怎么解决

有代码将将窗体数据源设为sql server里面的数据 ，但出现”无法初始化数据提供程序“，是什么原因呢？有什么办法解决

窗体加载时的代码：

Private Sub Form_Load()
Dim rst As New ADODB.Connection
Dim bst As New ADODB.Recordset
Set rst = New ADODB.Connection       ****建立连接
      rst.Provider = "Microsoft.Access.OLEDB.10.0;Data Provider=SQLOLEDB.1"
      rst.ConnectionString = "user ID=sa;pwd=.;data source=SQLR2;initial catalog=管理SQL"
      rst.Open
Set bst = New ADODB.Recordset         *****记录集
     bst.ActiveConnection = rst
     bst.Source = "select * from 成绩"
     bst.LockType = adLockBatchOptimistic
     bst.CursorType = adOpenKeyset
     bst.Open
Set Me.Recordset = bst            ***赋予数据源
Set rst = Nothing
Set bst = Nothing
End Sub